home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-08-01 | 1008 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Memotech MTX BASIC source (document/memotechMTXBASICSource)
| ext
| Unsupported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| ec 03 00 00 0d 0a 27 20 | 53 63 6f 6d 70 6f 6e 65 |......' |Scompone|
|00000010| 0d 0a 0d 0a 0d 0a 73 74 | 72 69 6e 67 09 69 6e 70 |......st|ring.inp|
|00000020| 46 69 6c 65 0d 0a 44 65 | 76 43 6f 6e 09 49 62 6d |File..De|vCon.Ibm|
|00000030| 70 2c 4f 62 6d 70 0d 0a | 52 47 42 09 70 69 78 2c |p,Obmp..|RGB.pix,|
|00000040| 70 69 78 72 2c 70 69 78 | 67 2c 70 69 78 62 0d 0a |pixr,pix|g,pixb..|
|00000050| 66 6c 6f 61 74 20 20 09 | 78 2c 79 0d 0a 0d 0a 69 |float .|x,y....i|
|00000060| 6e 70 46 69 6c 65 3d 22 | 74 65 73 74 69 2e 62 6d |npFile="|testi.bm|
|00000070| 70 22 0d 0a 0d 0a 49 62 | 6d 70 3d 4c 6f 61 64 49 |p"....Ib|mp=LoadI|
|00000080| 6d 61 67 65 28 69 6e 70 | 46 69 6c 65 29 0d 0a 4f |mage(inp|File)..O|
|00000090| 62 6d 70 3d 43 72 65 61 | 74 65 49 6d 61 67 65 28 |bmp=Crea|teImage(|
|000000a0| 49 62 6d 70 2e 57 69 64 | 74 68 2a 32 2c 49 62 6d |Ibmp.Wid|th*2,Ibm|
|000000b0| 70 2e 48 65 69 67 68 74 | 2a 32 2c 38 29 20 0d 0a |p.Height|*2,8) ..|
|000000c0| 0d 0a 46 6f 72 20 79 3d | 30 20 74 6f 20 36 33 0d |..For y=|0 to 63.|
|000000d0| 0a 20 20 20 70 69 78 2e | 4c 75 6d 3d 79 2a 34 0d |. pix.|Lum=y*4.|
|000000e0| 0a 20 20 20 53 65 74 50 | 61 6c 65 74 74 65 28 4f |. SetP|alette(O|
|000000f0| 62 6d 70 2c 79 2c 70 69 | 78 29 0d 0a 20 20 20 70 |bmp,y,pi|x).. p|
|00000100| 69 78 72 2e 52 65 64 3d | 79 2a 34 0d 0a 20 20 20 |ixr.Red=|y*4.. |
|00000110| 53 65 74 50 61 6c 65 74 | 74 65 28 4f 62 6d 70 2c |SetPalet|te(Obmp,|
|00000120| 79 2b 36 34 2c 70 69 78 | 72 29 0d 0a 20 20 20 70 |y+64,pix|r).. p|
|00000130| 69 78 67 2e 47 72 65 65 | 6e 3d 79 2a 34 0d 0a 20 |ixg.Gree|n=y*4.. |
|00000140| 20 20 53 65 74 50 61 6c | 65 74 74 65 28 4f 62 6d | SetPal|ette(Obm|
|00000150| 70 2c 79 2b 31 32 38 2c | 70 69 78 67 29 0d 0a 20 |p,y+128,|pixg).. |
|00000160| 20 20 70 69 78 62 2e 42 | 6c 75 65 3d 79 2a 34 0d | pixb.B|lue=y*4.|
|00000170| 0a 20 20 20 53 65 74 50 | 61 6c 65 74 74 65 28 4f |. SetP|alette(O|
|00000180| 62 6d 70 2c 79 2b 31 39 | 32 2c 70 69 78 62 29 0d |bmp,y+19|2,pixb).|
|00000190| 0a 4e 65 78 74 20 79 0d | 0a 0d 0a 46 6f 72 20 79 |.Next y.|...For y|
|000001a0| 3d 30 20 74 6f 20 49 62 | 6d 70 2e 48 65 69 67 68 |=0 to Ib|mp.Heigh|
|000001b0| 74 2d 31 0d 0a 20 20 20 | 46 6f 72 20 78 3d 30 20 |t-1.. |For x=0 |
|000001c0| 74 6f 20 49 62 6d 70 2e | 57 69 64 74 68 2d 31 0d |to Ibmp.|Width-1.|
|000001d0| 0a 0d 0a 20 20 20 20 20 | 20 70 69 78 3d 47 65 74 |... | pix=Get|
|000001e0| 50 69 78 65 6c 28 49 62 | 6d 70 2c 78 2c 79 29 09 |Pixel(Ib|mp,x,y).|
|000001f0| 09 27 20 67 65 74 20 69 | 6e 70 75 74 20 69 6d 61 |.' get i|nput ima|
|00000200| 67 65 20 70 69 78 65 6c | 0d 0a 20 20 20 20 20 20 |ge pixel|.. |
|00000210| 70 69 78 72 2e 52 65 64 | 3d 70 69 78 2e 52 65 64 |pixr.Red|=pix.Red|
|00000220| 0d 0a 20 20 20 20 20 20 | 70 69 78 67 2e 47 72 65 |.. |pixg.Gre|
|00000230| 65 6e 3d 70 69 78 2e 47 | 72 65 65 6e 0d 0a 20 20 |en=pix.G|reen.. |
|00000240| 20 20 20 20 70 69 78 62 | 2e 42 6c 75 65 3d 70 69 | pixb|.Blue=pi|
|00000250| 78 2e 42 6c 75 65 0d 0a | 20 20 20 20 20 20 70 69 |x.Blue..| pi|
|00000260| 78 2e 4c 75 6d 3d 70 69 | 78 2e 4c 75 6d 0d 0a 0d |x.Lum=pi|x.Lum...|
|00000270| 0a 20 20 20 20 20 20 53 | 65 74 50 69 78 65 6c 28 |. S|etPixel(|
|00000280| 4f 62 6d 70 2c 78 2c 79 | 2c 70 69 78 72 29 0d 0a |Obmp,x,y|,pixr)..|
|00000290| 20 20 20 20 20 20 53 65 | 74 50 69 78 65 6c 28 4f | Se|tPixel(O|
|000002a0| 62 6d 70 2c 78 2b 49 62 | 6d 70 2e 57 69 64 74 68 |bmp,x+Ib|mp.Width|
|000002b0| 2c 79 2c 70 69 78 67 29 | 0d 0a 20 20 20 20 20 20 |,y,pixg)|.. |
|000002c0| 53 65 74 50 69 78 65 6c | 28 4f 62 6d 70 2c 78 2c |SetPixel|(Obmp,x,|
|000002d0| 79 2b 49 62 6d 70 2e 48 | 65 69 67 68 74 2c 70 69 |y+Ibmp.H|eight,pi|
|000002e0| 78 62 29 0d 0a 20 20 20 | 20 20 20 53 65 74 50 69 |xb).. | SetPi|
|000002f0| 78 65 6c 28 4f 62 6d 70 | 2c 78 2b 49 62 6d 70 2e |xel(Obmp|,x+Ibmp.|
|00000300| 57 69 64 74 68 2c 79 2b | 49 62 6d 70 2e 48 65 69 |Width,y+|Ibmp.Hei|
|00000310| 67 68 74 2c 70 69 78 29 | 0d 0a 0d 0a 20 20 20 4e |ght,pix)|.... N|
|00000320| 65 78 74 20 78 0d 0a 20 | 20 20 69 66 28 79 25 31 |ext x.. | if(y%1|
|00000330| 30 3d 30 29 0d 0a 20 20 | 20 20 20 20 50 72 65 76 |0=0).. | Prev|
|00000340| 69 65 77 28 4f 62 6d 70 | 2c 22 4f 75 74 70 75 74 |iew(Obmp|,"Output|
|00000350| 22 2c 30 2c 30 29 0d 0a | 20 20 20 20 20 20 27 44 |",0,0)..| 'D|
|00000360| 73 70 57 68 69 6c 65 28 | 22 46 69 6c 74 65 72 69 |spWhile(|"Filteri|
|00000370| 6e 67 22 2c 35 30 2f 49 | 62 6d 70 2e 48 65 69 67 |ng",50/I|bmp.Heig|
|00000380| 68 74 2a 79 29 0d 0a 20 | 20 20 65 6e 64 69 66 0d |ht*y).. | endif.|
|00000390| 0a 4e 65 78 74 20 79 0d | 0a 50 72 65 76 69 65 77 |.Next y.|.Preview|
|000003a0| 28 4f 62 6d 70 2c 22 4f | 75 74 70 75 74 22 2c 30 |(Obmp,"O|utput",0|
|000003b0| 2c 30 29 0d 0a 44 73 70 | 57 68 69 6c 65 28 22 22 |,0)..Dsp|While(""|
|000003c0| 2c 30 29 0d 0a 27 53 61 | 76 65 49 6d 61 67 65 28 |,0)..'Sa|veImage(|
|000003d0| 4f 62 6d 70 2c 22 74 65 | 73 74 6f 2e 62 6d 70 22 |Obmp,"te|sto.bmp"|
|000003e0| 29 0d 0a 44 73 70 4d 65 | 73 28 22 45 6e 64 22 29 |)..DspMe|s("End")|
+--------+-------------------------+-------------------------+--------+--------+
